(url-basic-auth): Encode password string.

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index ce730ce74eacc26b19635920f1fda396c268e445..adf1d5b6703de3d1685151c0027b3797d3d631ae 100644 (file)
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -93,7 +93,8 @@ instead of the filename inheritance method."
                       (cons file
                             (setq retval
                                   (base64-encode-string
-                                   (format "%s:%s" user pass)))))
+                                   (format "%s:%s" user
+                                           (encode-coding-string pass 'utf-8))))))
                 (symbol-value url-basic-auth-storage))))
      (byserv
       (setq retval (cdr-safe (assoc file byserv)))